home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PASANS.ZIP
/
CH06_2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-04
|
897b
|
36 lines
(* Chapter 6 - Programming exercise 2 *)
program First_Array;
var Product : array[1..10,1..10] of integer;
Row : integer;
Column : integer;
begin
for Row := 1 to 10 do
for Column := 1 to 10 do
Product[Row, Column] := Row * Column;
for Row := 1 to 10 do begin
for Column := 1 to 10 do
Write(Product[Row,Column]:4);
Writeln;
end;
end.
{ Result of execution
1 2 3 4 5 6 7 8 9 10
2 4 6 8 10 12 14 16 18 20
3 6 9 12 15 18 21 24 27 30
4 8 12 16 20 24 28 32 36 40
5 10 15 20 25 30 35 40 45 50
6 12 18 24 30 36 42 48 54 60
7 14 21 28 35 42 49 56 63 70
8 16 24 32 40 48 56 64 72 80
9 18 27 36 45 54 63 72 81 90
10 20 30 40 50 60 70 80 90 100
}